home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wwais103 / save.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.5 KB  |  128 lines
  1. VERSION 2.00
  2. Begin Form save_form 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "WAIS Save"
  5.    ClientHeight    =   3855
  6.    ClientLeft      =   2400
  7.    ClientTop       =   2115
  8.    ClientWidth     =   4710
  9.    Height          =   4260
  10.    Left            =   2340
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3855
  16.    ScaleWidth      =   4710
  17.    Top             =   1770
  18.    Width           =   4830
  19.    Begin DirListBox dir_box 
  20.       BackColor       =   &H00FFFF00&
  21.       Height          =   2055
  22.       Left            =   1920
  23.       TabIndex        =   0
  24.       Top             =   1560
  25.       Width           =   1575
  26.    End
  27.    Begin DriveListBox drive_box 
  28.       BackColor       =   &H00FFFF00&
  29.       Height          =   315
  30.       Left            =   1920
  31.       TabIndex        =   1
  32.       Top             =   1080
  33.       Width           =   1575
  34.    End
  35.    Begin FileListBox file_box 
  36.       BackColor       =   &H00FFFF00&
  37.       Height          =   2565
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   1080
  41.       Width           =   1575
  42.    End
  43.    Begin CommandButton cancel 
  44.       Caption         =   "&Cancel"
  45.       Height          =   375
  46.       Left            =   3600
  47.       TabIndex        =   8
  48.       Top             =   720
  49.       Width           =   855
  50.    End
  51.    Begin CommandButton ok 
  52.       Caption         =   "&OK"
  53.       Height          =   375
  54.       Left            =   3600
  55.       TabIndex        =   7
  56.       Top             =   240
  57.       Width           =   855
  58.    End
  59.    Begin TextBox filename 
  60.       BackColor       =   &H00FFFF00&
  61.       Height          =   285
  62.       Left            =   1320
  63.       TabIndex        =   4
  64.       Top             =   240
  65.       Width           =   2175
  66.    End
  67.    Begin Label Label3 
  68.       BackColor       =   &H00808080&
  69.       Caption         =   "Directories"
  70.       Height          =   255
  71.       Left            =   1920
  72.       TabIndex        =   6
  73.       Top             =   720
  74.       Width           =   1455
  75.    End
  76.    Begin Label Label2 
  77.       BackColor       =   &H00808080&
  78.       Caption         =   "Files"
  79.       Height          =   255
  80.       Left            =   360
  81.       TabIndex        =   5
  82.       Top             =   720
  83.       Width           =   615
  84.    End
  85.    Begin Label Label1 
  86.       BackColor       =   &H00808080&
  87.       Caption         =   "File Name:"
  88.       Height          =   255
  89.       Left            =   240
  90.       TabIndex        =   3
  91.       Top             =   240
  92.       Width           =   975
  93.    End
  94. Sub cancel_Click ()
  95.     save_form.Hide
  96. End Sub
  97. Sub dir_box_Change ()
  98.     file_box.path = dir_box.path
  99.         
  100. End Sub
  101. Sub drive_box_Change ()
  102.     dir_box.path = drive_box.drive
  103. End Sub
  104. Sub file_box_DblClick ()
  105.     filename.text = UCase$(file_box.filename)
  106. End Sub
  107. Sub Form_Load ()
  108.     file_box.pattern = filename.text
  109. End Sub
  110. Sub ok_Click ()
  111.     Dim rec As String * 1
  112.      mousepointer = HOURGLASS
  113.     savename$ = dir_box.path + "\" + filename.text
  114.     Open savename$ For Binary As #2
  115.      Close 1
  116.      Open "wais.$$$" For Binary As #1
  117.     doc_lines& = LOF(1)
  118.     For x& = 1 To doc_lines&
  119.         Get #1, x&, rec
  120.         Put #2, x&, rec
  121.     Next x&
  122.     Close (2)
  123.     Close (1)
  124.      Open "wais.$$$" For Random As #1 Len = 80
  125.      mouseptr = DEFAULT
  126.     save_form.Hide
  127. End Sub
  128.